home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 1 / rerun-1984-01-06-side-b.d64 / vicasso feb p132 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  42 lines
  1. 10 poke 52,28:poke56,28:clr:dimn(7)
  2. 20 for t=7168 to 7679:poke t,peek(t+25600):next
  3. 30 poke36869,255
  4. 40 read a: if a=-1 then200
  5. 50 for t=0to7:read b:poke7168+a*8+t,b:next
  6. 60 goto 40
  7. 200 data-1
  8. 7990 stop
  9. 8000 printchr$(147)chr$(18)"  76543210  ":rem 2 spaces before and after #
  10. 8010 for t=0to7: printchr$(18)t spc(7)t:next:printchr$(18)"  76543210  "
  11. 8020 poke36869,240:fort=38400 to 38632:poket,6:next:l=7704:th=32
  12. 8030 ch=160:ll=7704:print"f1=print f3=erase":print"space=mark f5=enter"
  13. 8040 pokell,160:for t=1 to 10:next:pokell,32
  14. 8050 if peek(197)=39 then ch=160
  15. 8060 if peek(197)=47 then ch=32
  16. 8070 if peek(197)=17 then y=y-1:ify<0 then y=0
  17. 8080 if peek(197)=18 theny=y+1:ify>7 theny=7
  18. 8090 if peek(197)=9 then x=x-22: if x<0 then x=0
  19. 8100 if peek(197)=26 then x=x+22:ifx>220 then x=220
  20. 8110 if peek(197)=32 then th=ch
  21. 8120 if peek(197) =55 then 8140
  22. 8130 pokell,th:ll=l+x+y:th= peek(ll):goto8040
  23. 8140 print chr$(19)chr$(17);:for x=0to7:for y=0to7:fort=631to640:poket,0:next
  24. 8150 forx=0to7:fory=0to7:if peek(7704+x*22+y)=160thenn(x)=n(x)+2^(7-y)
  25. 8160 next y:print tab(14)n(x):next x:print:print:print
  26. 8170 print"enter screen"
  27. 8180 input"code #";a:ifa<0ora>64then8170
  28. 8190 printchr$(147)chr$(17)chr$(17)
  29. 8200 q=q+1:print60+q"data"a;:fort=0to7:print","right$(str$(n(t)),len(str$(n(t)))-1);
  30. 8210 next:print:print:print"q="q":";
  31. 8220 print"goto20":restore
  32. 8230 print"goto8000=continue     goto9000=end"
  33. 8240 poke198,0:poke631,13:poke632,17:poke633,13:poke198,3:end
  34. 9000 printchr$(147)chr$(17)chr$(17):fort=7990to8070step10:printt:next:print"goto9020
  35. 9010 [129]t[178]631[164]640:[151]t,13:[151]198,10:[130]:[153][199](19):[128]
  36. 9020 [153][199](147)[199](17)[199](17):[129]t[178]8080[164]8160[169]10:[153]t:[130]:[153]"goto9040"
  37. 9030 [129]t[178]631[164]640:[151]t,13:[130]:[153][199](19):[151]198,10:[128]
  38. 9040 [153][199](147)[199](17)[199](17):[129]t[178]8170[164]8240[169]10:[153]t:[130]:[153]"goto9060"
  39. 9050 [129]t[178]631[164]640:[151]t,13:[130]:[153][199](19):[151]198,10:[128]
  40. 9060 [153][199](147)[199](17)[199](17):[129]t[178]9000[164]9070[169]10:[153]t:[130]
  41. 9070 [129]t[178]631[164]640:[151]t,13:[130]:[153][199](19):[151]198,10:[128]
  42.